home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POV302 / SCENES / MATH / LEMNISC2.POV < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.8 KB  |  85 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Alexander Enzmann
  4.  
  5. /* sample quartic scene file written by Alexander Enzmann */
  6.  
  7. #include "shapes.inc"
  8. #include "colors.inc"
  9. #include "textures.inc"
  10.  
  11. union {
  12.    /* Lemniscate of Gerono */
  13.    quartic {
  14.      < 1.0,  0.0,  0.0,  0.0, 0.0,  0.0,  0.0,  0.0,  0.0, -1.0,
  15.        0.0,  0.0,  0.0,  0.0, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  16.        0.0,  0.0,  0.0,  0.0, 0.0,  1.0,  0.0,  0.0,  0.0,  0.0,
  17.        0.0,  0.0,  1.0,  0.0, 0.0 >
  18.  
  19.       bounded_by { sphere { <0, 0, 0>, 2.01 } }
  20.  
  21.       texture {
  22.          pigment { Red }
  23.          finish {
  24.             phong 1.0
  25.             phong_size 10
  26.             ambient 0.2
  27.             diffuse 0.8
  28.          }
  29.       }
  30.       rotate 45*z
  31.    }
  32.  
  33.    /* Lemniscate of Gerono */
  34.    quartic {
  35.       < 1.0,  0.0,  0.0,   0.0, 0.0,  0.0,  0.0,  0.0,  0.0, -1.0,
  36.         0.0,  0.0,  0.0,   0.0, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  37.         0.0,  0.0,  0.0,   0.0, 0.0,  1.0,  0.0,  0.0,  0.0,  0.0,
  38.         0.0,  0.0,  1.0,   0.0, 0.0 >
  39.  
  40.       bounded_by { sphere { <0, 0, 0>, 2.01 } }
  41.  
  42.       texture {
  43.          pigment { Blue }
  44.          finish {
  45.             phong 1.0
  46.             phong_size 10
  47.             ambient 0.2
  48.             diffuse 0.8
  49.          }
  50.       }
  51.       rotate -45*z
  52.    }
  53.  
  54.    scale 4
  55.    rotate <30, 0, 20>
  56.    translate 5*z
  57. }
  58.  
  59. camera {
  60.    location  <0.0, 0.0, -10.0>
  61.    right     <1.0, 0.0,  0.0>
  62.    up        <0.0, 1.0,  0.0>
  63.    direction <0.0, 0.0,  1.0>
  64. }
  65.  
  66. light_source { <200, 30, -30> colour White }
  67.  
  68. light_source { <-200, 30, -300> colour White }
  69.  
  70. /* Put down floor */
  71. plane {
  72.    y, -30.0
  73.    texture {
  74.       pigment {
  75.          White_Marble
  76.          scale 30
  77.       }
  78.       finish {
  79.          ambient 0.3
  80.          diffuse 0.7
  81.       }
  82.    }
  83.    rotate 5*x
  84. }
  85.